home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carousel
/
CAROUSEL.cdr
/
mactosh
/
code
/
p_diskop.sit
/
Disk Instructions for Disk.pas
next >
Wrap
Pascal/Delphi Source File
|
1987-06-12
|
2KB
|
41 lines
DISCLAIMER: This is a free program. You get what you pay for.
This was written in LightSpeed Pascal and portions are therefore certain
portions are copyright Think Technologies, but who really cares?
What this thing does is take some of the guesswork out of making disks
for other people. Take, for example, the case where you have a big mess of
MacPaint files on your hard disk in a folder or two and you want to put
them onto a couple of disks and send them to someone or just to archive
them in case of hardware failure. You always seem to end up with 13K
free and only 14K files left. This program should help in that situation. A
warning, it expects to write to 800K disks, so if you only have 400K disks,
you will have to mess with the source, which is included.
Simply make a text file of file names, followed by a tab, followed by the
size of the file in bytes. I know this sounds tough, but I can recommend a
very nice program named CatMaker that does this very thing. CatMaker is
Shareware, so look for it wherever you got this thing. You can deal with
folders as well as files if you make sure that only the folder is present
and not all the files in it. CatMaker includes the folder and all it's files,
so you may have to use a text editor (like the one you are using now) to
edit out the files from inside the folder. What do you expect for free?
So, run the application provided and pick the file you prepared. It will read
and sort the file and inform you if any files are too large to fit on a disk.
Then it will allow you to name the output file and it will create it. The
current limit is set to be 700 files. If you want more you can change the
source or try to bribe me. There are some simple arrays in the code, but if
you get fancy you can improve that.
It is up to you to do the actual copying, although I may be writing an MPW
command procedure to do that and if I do I will probably turn this into an
MPW tool. If you are interested in such a beast, call or write.
Jon Pugh
PO Box 5509 L-561
Livermore, CA 94550
(415) 423-4239